home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbsrch / file2.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-10  |  654 b   |  32 lines
  1. Option Explicit
  2. Global Const AppName = "Search a drive"
  3. Global Const MP_Normal = 0  ' Mouse Pointer
  4. Global Const MP_Uhr = 11    ' Mouse Pointer
  5.  
  6. Function AppError (msg As String) As String
  7.     Stop
  8. End Function
  9.  
  10. Sub Backslash (path$)
  11.     If Right$(path$, 1) <> "\" Then path$ = path$ + "\"
  12. End Sub
  13.  
  14. Sub vbAppFileFirst ()
  15.     frmMain.List1.Clear
  16. End Sub
  17.  
  18. Sub vbAppFileFound (file$)
  19.     frmMain.List1.AddItem file$
  20. End Sub
  21.  
  22. Sub vbAppFileLast (flag As Integer)
  23. Dim temp$
  24.     If flag Then
  25.         temp$ = "Search terminated by user"
  26.     Else
  27.         temp$ = "Search completed"
  28.     End If
  29.     MsgBox temp$, 48, AppName
  30. End Sub
  31.  
  32.